home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Magazine / PicManager / HD-Install / Install_HD < prev    next >
Text File  |  1997-07-29  |  8KB  |  397 lines
  1. ; $VER: Install_PMPro V1.5 (25.7.97)
  2. ; J. Schaefer / Andreas R. Kleinert
  3. ; Modified to use LHA by Florian Zeiler
  4.  
  5. ; 4.11.96 : Modif. for PMPro 4 , J. Schaefer
  6. ;           LHA to PM/system /
  7.  
  8. ; 25.7.97 : Translated to english - J. Schaefer
  9. ;           Picasso96 Driver added to installation
  10. ;           Legal controlpad removed
  11. ;
  12. (set @app-name "Picture Manager Professional")
  13. ;
  14. ; OS-Version  test
  15.  
  16. (set #OS_VER (/ (getversion) 65536) )
  17.  
  18. (if(< #OS_VER 37)
  19.   (abort "You need Kickstart/OS V2.04 with WB 2.1! or higher")
  20. )
  21.  
  22. ; Installation-Path
  23.  
  24. (set #PMProDir (askdir
  25.                   (prompt "Select installation directory ?"
  26.                           "\n(A drawer PicManager will be created)")
  27.                   (help @askdir-help)
  28.                   (newpath)
  29.                   (default "Work:")
  30.                 )
  31. )
  32.  
  33. ; Do not install to RAM
  34.  
  35. (if(= (getdevice #PMProDir) "RAM")
  36.     (abort "It makes no sense to install into RAM-Disk!")
  37. )
  38.  
  39.  
  40. ; check free HD-Space
  41.  
  42. (set #dskspace (getdiskspace #PMProDir))
  43.  
  44. (if(<> #dskspace -1)
  45.  (if(< #dskspace 4000000)
  46.      (abort "You need more than 4MB Diskspace ("dskspace") !")
  47.  )
  48. )
  49.  
  50. (set #dskspace (getdiskspace "SYS:"))
  51.  
  52. (if(<> #dskspace -1)
  53.  (if(< #dskspace 600000)
  54.      (abort "You need more than 600 kb free HD-Space (Workbench)  ("dskspace") !")
  55.  )
  56. )  
  57.  
  58. ; make PicManager drawer
  59.  
  60. (set #PMProPath (tackon #PMProDir "PicManager"))
  61. (makedir (#PMProPath))
  62.  
  63. ; Set PATH
  64.  
  65. (set @default-dest #PMProPath)
  66.  
  67. ; Select displaydriver
  68.  
  69. (set #viewinstall 255)
  70. (set #viewinstall (askoptions
  71.               (prompt "Select displaydriver(s) to install")
  72.               (choices "PicassoII" "Retina Z2/Z3" "Merlin" "CyberGraphX" "EGS" "OpalVision" "Picasso96")
  73.               (default 0)
  74.               (help (cat "Only select these driver(s)\n"
  75.                          "you have installed the coresponding\n"
  76.                          "GFX-card and/or the coresponding\n"
  77.                          "driver software!"
  78.                     )
  79.               )
  80.              )
  81. )
  82.  
  83. ; delete old files
  84.  
  85. (delete (tackon #PMProPath "Autostart.prefs"       ) (optional "force"))
  86. (delete (tackon #PMProPath "Autostart.prefs.info"  ) (optional "force"))
  87.  
  88. (delete (tackon #PMProPath "PV.config"             ) (optional "force"))
  89. (delete (tackon #PMProPath "PV.config.info"        ) (optional "force"))
  90.  
  91. (delete (tackon #PMProPath "PhotoView"             ) (optional "force"))
  92. (delete (tackon #PMProPath "PhotoView.info"        ) (optional "force"))
  93.  
  94. (delete (tackon #PMProPath "PicManager.guide"      ) (optional "force"))
  95. (delete (tackon #PMProPath "PicManager.guide.info" ) (optional "force"))
  96.  
  97. (delete (tackon #PMProPath "Graphics.log"          ) (optional "force"))
  98. (delete (tackon #PMProPath "Graphics.log.info"     ) (optional "force"))
  99.  
  100. ; Create TEMP-DIR to extract lha-files
  101.  
  102. (set #TempPath (tackon #PMProPath ".tempinstall"))
  103. (makedir (#TempPath))
  104.  
  105. ; CLEANUP TEMP-DIR
  106.  
  107. ; calles if an error occurs
  108.  
  109. (onerror (P_CLEANUP))
  110.  
  111. (procedure P_CLEANUP
  112.    (delete #TempPath (all) (optional "force"))
  113. )
  114.  
  115. ; ...................Disk 1
  116.  
  117.  
  118. ; LHA-Extract into TEMP-DIR
  119. ; JUERGEN: zusätzlich/stattdessen in Picture-Manager-Verzeichnis kopieren
  120.  
  121. (copyfiles
  122.   (source ( "lha"))
  123.   (dest (#TempPath))
  124. )
  125.  
  126. ; Dearchivier-Routine deklarieren
  127.  
  128. (procedure P_EXPAND  #exp_archive #exp_dest
  129.   (set #exp_srcpath ( #exp_archive))
  130.  
  131.   (if(= (exists #exp_srcpath) TRUE)
  132.     (
  133.      (working ("Extracting '%s'" #exp_srcpath))
  134.      ; JÜRGEN: evtl. #TempPath in wirklichen Pfad von LHA ändern
  135.      (set #exp_call ("%s X \"%s\" \"%s/\"" (tackon #TempPath "LHA") #exp_srcpath #exp_dest))
  136.      (run #exp_call)
  137.     )
  138.     (
  139.      (abort (cat "On Disk is missing the file " #exp_archive))
  140.     )
  141.   )
  142. )
  143.  
  144. ; Archive PM_1 and PM_2 in PM-Directory
  145.  
  146. (P_EXPAND "PM_1.lha" #PMProPath)
  147. (P_EXPAND  "PM_2.lha" #PMProPath)
  148.  
  149. ; Copy Piktogram
  150.  
  151. (copyfiles
  152.   (source ("PicManager.inf"))
  153.   (dest #PMProDir)
  154.   (newname "PicManager.info")
  155.   (files)
  156. ) 
  157.  
  158. ; Copy LHA in PMPro/system
  159.  
  160.  
  161. (copyfiles
  162.   (source ("lha"))
  163.    (dest (tackon #PMProPath "System"))
  164. ) 
  165.  
  166. (copyfiles
  167.   (source ("Readme.DEMO"))
  168.   (dest #PMProPATH)
  169.   (newname "Readme")
  170.   (files)
  171. )  
  172.  
  173.  
  174. ; ........................Disk 2
  175.  
  176. ; Archive Examples and Help_Docs in PM-Directory
  177.  
  178. (P_EXPAND  "Examples.lha" #PMProPath)
  179. (P_EXPAND  "Help_Docs.lha" #PMProPath)
  180.  
  181. ; Archive Library und Drivers ins Tempverzeichnis
  182.  
  183. (P_EXPAND  "Library.lha" #TempPath)
  184. (P_EXPAND  "Drivers.lha" #TempPath)
  185.  
  186.  
  187. ; Install Libraries
  188. ; ----------------------
  189. ; Rename OLD Superview installation
  190. ;
  191.  
  192. (delete "libs:svobjects.bak" (all) (optional "force"))
  193. (rename "libs:svobjects" "libs:svobjects.bak")
  194.  
  195. (delete "libs:svoperators.bak" (all) (optional "force"))
  196. (rename "libs:svoperators" "libs:svoperators.bak")
  197.  
  198. (delete "libs:svdrivers.bak" (all) (optional "force"))
  199. (rename "libs:svdrivers" "libs:svdrivers.bak")
  200.  
  201. (delete "libs:superview.library.bak" (optional "force"))
  202. (rename "libs:superview.library" "libs:superview.library.bak")
  203.  
  204. (delete "libs:superviewsupport.library.bak" (optional "force"))
  205. (rename "libs:superviewsupport.library" "libs:superviewsupport.library.bak")
  206.  
  207. ; Copy new SuperView LIB
  208.  
  209. (makedir "LIBS:svobjects")
  210. (makedir "LIBS:svoperators")
  211. (makedir "LIBS:svdrivers")
  212.  
  213.  
  214. (copyfiles
  215.   (source (tackon #TempPath "libs/svobjects"))
  216.   (dest "libs:svobjects")
  217.   (all)
  218. )
  219.  
  220. (copyfiles
  221.   (source (tackon #TempPath "libs/svoperators"))
  222.   (dest "libs:svoperators")
  223.   (all)
  224. )
  225.  
  226. (copyfiles
  227.   (source (tackon #TempPath "libs/svdrivers"))
  228.   (dest "libs:svdrivers")
  229.   (all)
  230. )
  231.  
  232. (copyfiles
  233.   (source (tackon #TempPath "libs/superview.library"))
  234.   (dest "libs:")
  235. )
  236.  
  237. (copyfiles
  238.   (source (tackon #TempPath "libs/superviewsupport.library"))
  239.   (dest "libs:")
  240. )
  241.  
  242. (copyfiles
  243.   (source (tackon #TempPath "libs/pmoperator.library"))
  244.   (dest "libs:")
  245.   (optional "force")
  246. )
  247.  
  248. ; Locale und Prefs kopieren
  249.  
  250. (copyfiles
  251.   (source (tackon #TempPath "locale"))
  252.   (dest "sys:locale")
  253.   (all)
  254. )
  255.  
  256. ; Create Superview Directories
  257.  
  258. (makedir "ENV:SuperView-Library")
  259. (makedir "ENVARC:SuperView-Library")
  260.  
  261. (copyfiles
  262.   (source (tackon #TempPath "prefs"))
  263.   (dest "sys:prefs")
  264.   (all)
  265. )
  266.  
  267. ; REQTOOLS Lib
  268. ;
  269.  
  270. (copylib
  271.   (source (tackon #TempPath "libs/reqtools.library"))
  272.   (dest "libs:")
  273.   (prompt "A newer version of reqtools.library would be installed")
  274.   (help @copylib-help)
  275. )
  276.  
  277.  
  278. ; Display drivers
  279.  
  280. ; PICASSO II
  281. ; ----------
  282. (if (IN #viewinstall 0)
  283. (
  284.  (copyfiles
  285.    (source (tackon #TempPath "PicassoII.svdriver"))
  286.    (dest "sys:libs/svdrivers")
  287.  )
  288.  (copyfiles
  289.    (source (tackon #TempPath "PicassoII.controlpad"))
  290.    (dest "envarc:superview-library")
  291.  )
  292.  (copyfiles
  293.    (source (tackon #TempPath "PicassoII.controlpad"))
  294.    (dest (tackon #PMProPath "Env"))
  295.  )
  296. ))
  297.  
  298. ; RETINA
  299. ; ------
  300. (if (IN #viewinstall 1)
  301. (
  302.  (copyfiles
  303.    (source (tackon #TempPath "Retina.svdriver"))
  304.    (dest "sys:libs/svdrivers")
  305.  )
  306.  (copyfiles
  307.    (source (tackon #TempPath "Retina.controlpad"))
  308.    (dest "envarc:superview-library")
  309.  )
  310.  (copyfiles
  311.    (source (tackon #TempPath "Retina.controlpad"))
  312.    (dest (tackon #PMProPath "Env"))
  313.  )
  314. ))  
  315.  
  316. ; MERLIN
  317. ; ------
  318. (if (IN #viewinstall 2)
  319. (
  320.  (copyfiles
  321.    (source (tackon #TempPath "MERLIN.svdriver"))
  322.    (dest "sys:libs/svdrivers")
  323.  )
  324. ))  
  325.  
  326.  
  327. ; CYBERGRAPHX
  328. ; -----------
  329. (if (IN #viewinstall 3)
  330. (
  331.  (copyfiles
  332.    (source (tackon #TempPath "CyberGraphics.svdriver"))
  333.    (dest "sys:libs/svdrivers")
  334.  )
  335.  (copyfiles
  336.    (source (tackon #TempPath "CyberGraphics.controlpad"))
  337.    (dest "envarc:superview-library")
  338.  )
  339.  (copyfiles
  340.    (source (tackon #TempPath "CyberGraphics.controlpad"))
  341.    (dest (tackon #PMProPath "Env"))
  342.  )
  343. ))  
  344.  
  345.  
  346.  
  347. ; EGS
  348. ; ---
  349. (if (IN #viewinstall 4)
  350. (
  351.  (copyfiles
  352.    (source (tackon #TempPath "EGS7.svdriver"))
  353.    (dest "sys:libs/svdrivers")
  354.  )
  355. ))  
  356.  
  357. ; OPAL
  358. ; ----
  359. (if (IN #viewinstall 5)
  360. (
  361.  (copyfiles
  362.    (source (tackon #TempPath "OPAL.svdriver"))
  363.    (dest "sys:libs/svdrivers")
  364.  )
  365. ))  
  366.  
  367. ; PICASSO96
  368. ; -----------
  369. (if (IN #viewinstall 6)
  370. (
  371.  (copyfiles
  372.    (source (tackon #TempPath "Picasso96.svdriver"))
  373.    (dest "sys:libs/svdrivers")
  374.  )
  375.  (copyfiles
  376.    (source (tackon #TempPath "Picasso96.controlpad"))
  377.    (dest "envarc:superview-library")
  378.  )
  379.  (copyfiles
  380.    (source (tackon #TempPath "Picasso96.controlpad"))
  381.    (dest (tackon #PMProPath "Env"))
  382.  )
  383. ))  
  384.  
  385. ; add assign in User-Startup
  386.  
  387. (startup "Picture Manager Professional"
  388.   (prompt "Adding PIC_MANAGER:-Assign to S:User-Startup")
  389.   (help @startup-help)
  390.   (command "Assign PIC_MANAGER: \"" #PMProPath "\"\n")
  391.   (command "Assign VMEM: PIC_MANAGER:Temp\n")
  392. )
  393.  
  394. (P_CLEANUP)
  395. (exit "Picture Manager Professional is installed.\nPlease reboot your system!")
  396.  
  397.